home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / schemaexoticdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  262 b   |  17 lines
  1. program SchemaExoticDemo;
  2.  
  3. type
  4.   ColorType = (Red, Green, Blue);
  5.   ColoredInteger (Color : ColorType) = Integer;
  6.  
  7. var
  8.   Foo : ColoredInteger (Green);
  9.  
  10. begin
  11.   Foo := 7;
  12.   if Foo.Color = red then
  13.     Inc (Foo, 2)
  14.   else
  15.     Foo := Foo div 3
  16. end.
  17.